1 PRINT"[147]"
2 DV=PEEK(186):IFDV<8THENDV=8
4 IFL=.ANDPEEK(816)=231ANDPEEK(817)=195THENPOKE816,165:POKE817,244
6 POKE832,.:IFL=.THENL=1:LOAD"AL1.ML",DV,1
8 IFL=1THENPOKE55,.:POKE56,33:CLR:DV=PEEK(186)
10 A(1)=56:A(2)=248:A(3)=184:A(4)=120:A(5)=56:A(6)=248:A(7)=184
12 A(8)=120:A(9)=56:A(10)=248:A(.)=184:B(1)=199:B(2)=199:B(3)=200:B(4)=201
14 B(5)=202:B(6)=202:B(7)=203:B(8)=204:B(9)=205:B(10)=205:B(.)=206
16 H=49173:V=53248:SD=54272:S=SD
18 IFL=0THENL=2:LOAD"AL1.JOEPLAY",DV,1
20 IFL=2THENL=3:LOAD"M.SOMEGUYS",DV,1
22 A=.:GOSUB374
24 SYS32768,40960:POKE56325,55:SYS49152:SYS49158
26 SYS49161,.
28 POKE53280,.
30 SYS49164,1
32 SYSH,.,150,319,150
34 SYSH,180,150,180,75
36 SYSH,180,75 ,319,75
38 POKE2040,13:POKE2041,14:POKE2042,15
40 J=1:GOSUB366
42 Z=0:A=1:FR=25:TM=170:SP=1:C=183:GOSUB352
44 A=3:GOSUB374
46 J=2:GOSUB366
48 SYS49176,145,150,165,150
50 GOSUB328
52 SYSH,145,150,145,199
54 SYSH,165,150,165,199
56 A=1:B=170:FORC=183TO229STEP6:GOSUB374:NEXT C
58 A=.:GOSUB374:SYS49158
60 SYSH,145,1,145,199:SYS H,165,1,165,199
62 A=1:B=170:FORC=50TO229STEP6:GOSUB374:NEXT
64 A=0:GOSUB374:SYS49158
66 SYSH,145,1,145,50:SYSH,165,1,165,50
68 SYSH,1,50,319,50:SYSH,1,150,319,150
70 SYSH,1,50,1,150:SYS49176,145,50,165,50
72 A=1:B=170:FORC=50TO180STEP6:GOSUB374:NEXTC
74 A=2:B=170:C=180:GOSUB374
76 GOSUB332
78 FORW=1TO1000:NEXT
80 A=0:GOSUB374
82 J=3:GOSUB366
84 A=1:GOSUB374
86 Z=0:FR=170:TM=320:SP=4:C=183:GOSUB352
88 A=0:GOSUB374:SYS49158
90 SYSH,1,50,80,50:SYSH,1,150,80,150
92 SYSH,80,1,80,50:SYSH,80,150,80,199
94 POKE214,20:PRINT:
96 PRINT"FFFFFFFFFFFFFFFFFFFFFFFFFFFFF";
98 Z=0:FR=24:TM=98:SP=3:C=183:GOSUB352
100 B=F:C=183:GOSUB374
102 J=4:GOSUB366
104 FORB=98TO140STEP2:C=C+1:GOSUB374:NEXTB
106 GOSUB338
108 Z=0:FR=142:TM=320:SP=3:C=205:GOSUB352
110 A=0:GOSUB374:SYS49158:SYS49164,1
112 POKE214,20:PRINT
114 PRINT"FFFFFFFFFFFFFFFF";
116 SYSH,240,75,319,150:SYSH,240,75,319,75
118 SYS49179,"LIVE WIRE",115,1
120 SYSH,159,10,159,162
122 Z=0:FR=25:TM=170:SP=1:C=205:GOSUB352
124 FORU=1TO500:NEXT
126 A=1:GOSUB374:J=5:GOSUB366
128 GOSUB342
130 N=53265:FORU=1TO025:POKEN+15,U:POKEN,PEEK(N)AND239:POKEN,PEEK(N)OR16:NEXT
132 POKE53280,0
134 Z=0:C=205
136 FORF=170TO275STEP9
138 Z=Z+1:IFZ<3THEN144
140 IFA=1THENA=2:Z=0:GOTO144
142 A=1:Z=0
144 B=F:C=C-12:GOSUB374
146 NEXT
148 R=F
150 FORC=61TO107STEP3:A=2:B=R:GOSUB374:NEXTC
152 C=C-1
154 A=3:B=R:GOSUB374
156 A=0:B=R:GOSUB374:J=3:GOSUB366:A=1:B=R:GOSUB374
158 Z=0:FR=R:TM=320:SP=3:GOSUB352
160 PRINT"[147]"
162 A=0:GOSUB374:SYS49158:SYS49164,1
164 SYSH,1,75,319,75
166 Z=0:FR=24:TM=250:SP=3:GOSUB352
168 SYS49176,200,75,319,75
170 SYSH,200,75,319,180
172 A=1:GOSUB374
174 J=6:GOSUB366
176 F=B:FORY=1TO11:C=C+3:B=F:GOSUB374:NEXT Y
178 A=2:GOSUB374
180 FORF=249TO319STEP5:B=F:C=C+4.1:GOSUB374:NEXT
182 SYS49158:A=0:GOSUB 374
184 SYS49152:SYS 49158:SYS 49164,1
186 SYSH,1,1,160,150:SYS H,160,150,160,175:SYSH,160,175,300,175
188 SYSH,300,175,300,150:SYS H,300,150,210,150:SYS H,210,150,50,1
190 SYSH,145,090,145,100
192 A=2:C=51:FOR F=33 TO 115STEP2:B=F:C=C+(.9*2):GOSUB374:NEXT
194 A=3:GOSUB374
196 A=3:FOR F=115TO150STEP2:B=F:C=C+(.9*2):GOSUB374:NEXT
198 A=0:GOSUB374:J=7:GOSUB366:A=1:B=158:C=146:GOSUB374
200 FOR Y=120TO145:SYS 49176,130,Y,150,Y:NEXT
202 SYSH,130,120,130,199:SYS H,150,140,150,199
204 FORU=1TO400:NEXT
206 FORC=146TO229STEP4:GOSUB374:NEXT
208 A=0:GOSUB374:SYS49158:SYS49164,1
210 SYSH,130,1,130,15:SYS H,150,1,150,15
212 SYSH,20,15,130,15:SYS H,150,15,250,15
214 SYSH,20,15,20,229: SYS H,250,15,250,199
216 J=8:GOSUB366:A=2:FORC=50TO229STEP4:GOSUB374:NEXT
218 SYS49152
220 A=0:GOSUB374:SYS49158:SYS49164,1
222 SYSH,20,1,20,199:SYSH,250,1,250,75
224 SYSH,250,75,319,75:SYSH,200,110,319,110
226 SYSH,200,110,200,199
228 SYSH,20,60,250,60
230 A=2:FORC=50TO105STEP3:GOSUB374:NEXTC
232 FORO=60TO70STEP 3
234 SYSH,20,60,140,O:SYSH,140,O,250,60
236 C=C+2:GOSUB374
238 SYS49176,20,60,140,O:SYS49176,140,O,250,60
240 NEXTO
242 FORO=70TO60STEP-3
244 SYSH,20,60,140,O:SYSH,140,O,250,60
246 C=C-2:GOSUB374
248 SYS49176,20,60,140,O:SYS49176,140,O,250,60
250 NEXT
252 SYSH,20,60,250,60
254 Z=0:FR=158:TM=250:SP=3:GOSUB352
256 A=2:B=F:GOSUB374
258 FORI=1TO25:C=C+1.5:B=F:GOSUB374:NEXT
260 C=C-1
262 J=9:GOSUB366
264 Z=0:FR=250:TM=319:SP=3:GOSUB352
266 A=0:GOSUB374
268 SYS49158:SYS49164,1
270 SYSH,1,110,319,110:SYSH,1,75,140,75:SYSH,140,75,150,65
272 SYSH,150,65,319,65
274 Z=0:FR=24:TM=319:SP=3:GOSUB352
276 A=0:GOSUB374:SYS49158
278 SYSH,1,65,319,65:SYSH,1,110,319,110
280 SYSH,240,70,260,70:SYSH,260,70,260,105:SYSH,260,105,240,105
282 SYSH,240,105,240,70:SYS49179,"EXIT",265,75
284 Z=0:FR=24:TM=175:SP=3:GOSUB352
286 SYSH,135,65,135,110:SYSH,180,65,180,110
288 A=0:GOSUB374:J=5:GOSUB366:A=3:C=C+3:GOSUB374
290 FORI=0TO12:SYS49173,135+I,66,135+I,109:SYS49173,180-I,66,180-I,109
292 SYS49176,135+I,66,135+I,109:SYS 49176,180-I,66,180-I,109
294 NEXT
296 J=9:GOSUB366
298 FORI=0TO4:SYS49173,147+I,66,147+I,109:SYS49173,168-I,66,168-I,109
300 SYS49176,147+I,66,147+I,109:SYS49176,168-I,66,168-I,109
302 NEXT
304 SYS49173,147+I,66,147+I,109:SYS49173,168-I,66,168-I,109
306 FORD=500TO.STEP-15:FORU=.TOD:NEXT:GOSUB378:NEXT
308 A=0:GOSUB374
310 FORZZ=149TO152:SYSH+3,ZZ,66,ZZ,109:SYSH+3,ZZ+13,66,ZZ+13,109:NEXT
312 SYSH,157,66,157,109:SYSH,158,66,158,109
314 SYS49179,"THE  END",133,100
316 GOSUB346
318 SYS49179,"  PRESS ANY KEY TO QUIT  ",66,150:POKE198,.
320 GETA$:IFA$=""THEN320
322 POKE178,64:PRINT"[147]";:SYS51459
324 END
326 :
328 POKES+24,15:POKES+5,190:POKES+6,25:FORX=127TO10STEP-17:POKES+1,2*X
330 POKES+1,129-X:POKES+4,17:FORL=1TO4:NEXT:POKES+1,4:NEXT:POKES+4,16:RETURN
332 RETURN
334 POKES+5,9:POKES+6,9:POKES+24,15:POKES+4,17:FORL=1TO40:POKES+1,62-L
336 POKES+1,L:POKES+4,17:NEXT:POKES+4,16:RETURN
338 POKES+24,15:POKES+6,240:POKES+4,17:FORLA=1TO2:FORLX=255TO1STEP-55
340 POKES+1,LX/2:POKES+1,255-LX/2:NEXT:NEXTLA:POKES+4,16:RETURN
342 POKES+24,15:POKES+6,240:POKES+4,17:FORLA=1TO10:FORLX=1TO255STEP25
344 POKES+1,LX:NEXTLX:NEXTLA:POKES+4,32:RETURN
346 POKES+1,14:POKES+5,3:POKES+6,240:POKES+24,15:POKES+4,17
348 FORLD=8TO2STEP-1:POKES+1,LD:POKES+4,33:POKES+4,33:POKES+1,LD*2:POKES+4,17
350 POKES+1,LD*4:POKES+4,33:POKES+1,LD*8:POKES+4,17:NEXT:POKES+4,16:RETURN
352 FORF=FRTOTMSTEPSP
354 Z=Z+1:IFZ<3THEN360
356 IFA=1THENA=2:Z=.:GOTO360
358 A=1:Z=.
360 B=F:GOSUB374:IF(J=3ORJ=9)ANDZ=.THENGOSUB378
362 NEXT
364 RETURN
366 REM
368 IFJ=11THENJ=0
370 POKE53115,A(J):POKE53116,B(J):SYS 53112
372 RETURN
374 IFA=.THENPOKEV+21,.:RETURN
376 POKEV,BAND255:POKEV+16,-(B>255):POKEV+1,C:POKE2040,12+A:POKEV+21,1:RETURN
378 POKESD+24,.:POKESD+24,15:RETURN
10000 D=PEEK(186):N$="0:ALFREDO 1":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END